home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / I-J / If Monks had Macs....cpt / If Monks had Macs... / Imitatio Christi / background_2124.txt < prev    next >
Text File  |  1992-02-09  |  7KB  |  326 lines
  1. -- background: 2124 from stack: in
  2. -- bmap block id: 2464
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Chapter Heading
  6. ----- HyperTalk script -----
  7. on closeCard
  8.   set the locktext of fld text to true
  9.   global refsTemp
  10.   put empty into refsTemp
  11.   if visible of bg fld "Ref" is true then cleaRef
  12.   if visible of bg fld "Refs" is true then hide bg fld "Refs"
  13.   if visible of bg fld "Locs" is true then hide bg fld "Locs"
  14.   if script of  bg fld "Text" contains "-" then
  15.     set script of bg fld "Text" to "on mouseUp" &return &"textClick" &return &"end mouseUp"
  16.   end if
  17.   if visible of bg btn "RefIndex" is true then hide bg btn "RefIndex"
  18. end closeCard
  19.  
  20. on openCard
  21.   global refsTemp
  22.   put bg fld "Refs" into refsTemp
  23.   pass openCard
  24. end openCard
  25.  
  26.  
  27.  
  28. -- part 18 (button)
  29. -- low flags: 00
  30. -- high flags: 0000
  31. -- rect: left=471 top=15 right=49 bottom=507
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 25868 / 25868
  34. -- text alignment: 1
  35. -- font id: 0
  36. -- text size: 12
  37. -- style flags: 0
  38. -- line height: 16
  39. -- part name: Cont
  40.  
  41.  
  42. -- part 2 (button)
  43. -- low flags: 00
  44. -- high flags: 2000
  45. -- rect: left=471 top=63 right=97 bottom=507
  46. -- title width / last selected line: 0
  47. -- icon id / first selected line: 28845 / 28845
  48. -- text alignment: 1
  49. -- font id: 0
  50. -- text size: 12
  51. -- style flags: 0
  52. -- line height: 16
  53. -- part name: FindBtn
  54.  
  55.  
  56. -- part 14 (field)
  57. -- low flags: 01
  58. -- high flags: 2000
  59. -- rect: left=12 top=56 right=342 bottom=450
  60. -- title width / last selected line: 0
  61. -- icon id / first selected line: 0 / 0
  62. -- text alignment: 0
  63. -- font id: 216
  64. -- text size: 12
  65. -- style flags: 0
  66. -- line height: 14
  67. -- part name: Text
  68. ----- HyperTalk script -----
  69. on mouseUp
  70.   textClick
  71. end mouseUp
  72.  
  73.  
  74. -- part 13 (field)
  75. -- low flags: 01
  76. -- high flags: 0000
  77. -- rect: left=151 top=42 right=61 bottom=300
  78. -- title width / last selected line: 0
  79. -- icon id / first selected line: 0 / 0
  80. -- text alignment: 1
  81. -- font id: 216
  82. -- text size: 12
  83. -- style flags: 0
  84. -- line height: 16
  85. -- part name: Title
  86.  
  87.  
  88. -- part 15 (field)
  89. -- low flags: 01
  90. -- high flags: 0000
  91. -- rect: left=17 top=61 right=94 bottom=45
  92. -- title width / last selected line: 0
  93. -- icon id / first selected line: 0 / 0
  94. -- text alignment: 0
  95. -- font id: 215
  96. -- text size: 24
  97. -- style flags: 0
  98. -- line height: 32
  99. -- part name: InitLetter
  100.  
  101.  
  102. -- part 21 (button)
  103. -- low flags: 00
  104. -- high flags: 2000
  105. -- rect: left=471 top=110 right=144 bottom=507
  106. -- title width / last selected line: 0
  107. -- icon id / first selected line: 28841 / 28841
  108. -- text alignment: 1
  109. -- font id: 0
  110. -- text size: 12
  111. -- style flags: 0
  112. -- line height: 16
  113. -- part name: RandomCard
  114.  
  115.  
  116. -- part 23 (field)
  117. -- low flags: 01
  118. -- high flags: 0000
  119. -- rect: left=10 top=32 right=44 bottom=49
  120. -- title width / last selected line: 0
  121. -- icon id / first selected line: 0 / 0
  122. -- text alignment: 0
  123. -- font id: 128
  124. -- text size: 5
  125. -- style flags: 0
  126. -- line height: 7
  127. -- part name: PageNo
  128.  
  129.  
  130. -- part 29 (button)
  131. -- low flags: 00
  132. -- high flags: 2000
  133. -- rect: left=471 top=157 right=191 bottom=507
  134. -- title width / last selected line: 0
  135. -- icon id / first selected line: 28843 / 28843
  136. -- text alignment: 1
  137. -- font id: 216
  138. -- text size: 12
  139. -- style flags: 0
  140. -- line height: 16
  141. -- part name: BookMark
  142.  
  143.  
  144. -- part 33 (button)
  145. -- low flags: 00
  146. -- high flags: 2000
  147. -- rect: left=471 top=204 right=238 bottom=507
  148. -- title width / last selected line: 0
  149. -- icon id / first selected line: 27601 / 27601
  150. -- text alignment: 1
  151. -- font id: 0
  152. -- text size: 12
  153. -- style flags: 0
  154. -- line height: 16
  155. -- part name: PrintChapter
  156.  
  157.  
  158. -- part 31 (button)
  159. -- low flags: 00
  160. -- high flags: 2000
  161. -- rect: left=471 top=252 right=286 bottom=507
  162. -- title width / last selected line: 0
  163. -- icon id / first selected line: 22873 / 22873
  164. -- text alignment: 1
  165. -- font id: 0
  166. -- text size: 12
  167. -- style flags: 0
  168. -- line height: 16
  169. -- part name: GoHome
  170.  
  171.  
  172. -- part 32 (button)
  173. -- low flags: 00
  174. -- high flags: 2000
  175. -- rect: left=471 top=300 right=334 bottom=507
  176. -- title width / last selected line: 0
  177. -- icon id / first selected line: 12797 / 12797
  178. -- text alignment: 1
  179. -- font id: 0
  180. -- text size: 12
  181. -- style flags: 0
  182. -- line height: 16
  183. -- part name: GoJournal
  184.  
  185.  
  186. -- part 28 (button)
  187. -- low flags: 00
  188. -- high flags: 4002
  189. -- rect: left=45 top=5 right=22 bottom=76
  190. -- title width / last selected line: 0
  191. -- icon id / first selected line: 0 / 0
  192. -- text alignment: 1
  193. -- font id: 200
  194. -- text size: 12
  195. -- style flags: 0
  196. -- line height: 16
  197. -- part name: U
  198.  
  199.  
  200. -- part 30 (field)
  201. -- low flags: 81
  202. -- high flags: 0004
  203. -- rect: left=101 top=15 right=36 bottom=354
  204. -- title width / last selected line: 0
  205. -- icon id / first selected line: 0 / 0
  206. -- text alignment: 1
  207. -- font id: 216
  208. -- text size: 12
  209. -- style flags: 256
  210. -- line height: 16
  211. -- part name: Snippets
  212.  
  213.  
  214. -- part 34 (field)
  215. -- low flags: 81
  216. -- high flags: 0004
  217. -- rect: left=81 top=3 right=46 bottom=376
  218. -- title width / last selected line: 0
  219. -- icon id / first selected line: 0 / 0
  220. -- text alignment: 1
  221. -- font id: 216
  222. -- text size: 12
  223. -- style flags: 256
  224. -- line height: 16
  225. -- part name: Ref
  226.  
  227.  
  228. -- part 40 (button)
  229. -- low flags: 00
  230. -- high flags: 0000
  231. -- rect: left=420 top=23 right=56 bottom=450
  232. -- title width / last selected line: 0
  233. -- icon id / first selected line: 0 / 0
  234. -- text alignment: 1
  235. -- font id: 0
  236. -- text size: 12
  237. -- style flags: 0
  238. -- line height: 16
  239. -- part name: DogEar
  240. ----- HyperTalk script -----
  241. on mouseUp
  242.   dogEar
  243. end mouseUp
  244.  
  245.  
  246. -- part 44 (button)
  247. -- low flags: 00
  248. -- high flags: 0000
  249. -- rect: left=452 top=7 right=19 bottom=466
  250. -- title width / last selected line: 0
  251. -- icon id / first selected line: 0 / 0
  252. -- text alignment: 1
  253. -- font id: 0
  254. -- text size: 12
  255. -- style flags: 0
  256. -- line height: 16
  257. -- part name: LastCard
  258.  
  259.  
  260. -- part 63 (field)
  261. -- low flags: 81
  262. -- high flags: 0007
  263. -- rect: left=77 top=0 right=32 bottom=512
  264. -- title width / last selected line: 0
  265. -- icon id / first selected line: 0 / 0
  266. -- text alignment: 0
  267. -- font id: 3
  268. -- text size: 9
  269. -- style flags: 0
  270. -- line height: 12
  271. -- part name: Refs
  272.  
  273.  
  274. -- part 64 (field)
  275. -- low flags: 81
  276. -- high flags: 0007
  277. -- rect: left=383 top=31 right=66 bottom=512
  278. -- title width / last selected line: 0
  279. -- icon id / first selected line: 0 / 0
  280. -- text alignment: 0
  281. -- font id: 3
  282. -- text size: 9
  283. -- style flags: 0
  284. -- line height: 12
  285. -- part name: Locs
  286.  
  287.  
  288. -- part 72 (button)
  289. -- low flags: 80
  290. -- high flags: 2000
  291. -- rect: left=471 top=15 right=49 bottom=507
  292. -- title width / last selected line: 0
  293. -- icon id / first selected line: 28895 / 28895
  294. -- text alignment: 1
  295. -- font id: 216
  296. -- text size: 9
  297. -- style flags: 0
  298. -- line height: 12
  299. -- part name: RefIndex
  300.  
  301.  
  302. -- part 53 (button)
  303. -- low flags: 80
  304. -- high flags: 2001
  305. -- rect: left=471 top=62 right=96 bottom=507
  306. -- title width / last selected line: 0
  307. -- icon id / first selected line: 28821 / 28821
  308. -- text alignment: 1
  309. -- font id: 216
  310. -- text size: 12
  311. -- style flags: 0
  312. -- line height: 16
  313. -- part name: find Next
  314. ----- HyperTalk script -----
  315. on mouseWithin
  316.   global Y1,doFind
  317.   if item 2 of mouseLoc() < (Y1 + 6) then
  318.     do doFind
  319.     wait 1 seconds
  320.   end if
  321. end mouseWithin
  322.  
  323. on mouseUp
  324.   FNBtn
  325. end mouseUp
  326.